Pensieve header: http://projecteuler.net/problem=4.

Select[
Reverse[Union@@Table[i*j, {i, 100, 999}, {j,i,999}]],
IntegerDigits[#] == Reverse[IntegerDigits[#]]&, 1
]

FactorInteger[906609]

{331*3, 11*83}